Imports EntityLayer
Imports BusinessLayer

Imports System.Data
Partial Class ReporteRequerimiento
    Inherits System.Web.UI.Page

    Protected Sub btnReporte_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        If txtDel.Text <> "" And txtAl.Text <> "" Then
            Session("TipoReporte") = "1"

            Dim dtResultados1 As DataTable
            dtResultados1 = SolicitudRequerimientoBL.ListarxFechas(CDate(txtDel.Text), CDate(txtAl.Text)).Tables(0)

            Session("Resultados") = dtResultados1
            ScriptManager.RegisterClientScriptBlock(Me.PanelMantenimiento, Me.GetType, "PopupScript", "window.open('ReporteGeneral.aspx','','channelmode=1,status=no,scrollbars=yes,resizable=yes,toolbar=no,width=880,height=650');", True)
        End If

    End Sub

    Protected Sub btnCancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        Response.Redirect("Principal.aspx")
    End Sub
End Class
